home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD020A.D64 / 04- the secret (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  37 lines
  1. 1 PRINT"[147]FULLSCREEN PLASMA SCROLLER!";
  2. 3 DIMC$(23)
  3. 5 POKE53280,0:POKE53281,0:POKE53282,4:POKE53283,6:POKE53284,13:X=0
  4. 10 POKE53265,87:REM 27
  5. 100 A$="[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[151]#"
  6. 105 B$="[144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][151][163]"
  7. 110 FORI=0TO6.28STEP(6.29/24)
  8. 120 A=2*(INT(SIN(I)*5))+20:B=2*(INT(COS(I*2)*5))+20
  9. 125 D=2*INT(SIN(I*2)*3)+40:E=38+(40-D)
  10. 130 C$(X)="[146]"+MID$(A$,A/2,A)+""+LEFT$(B$,D-A)
  11. 140 C$(X)=C$(X)+"[146]"+LEFT$(B$,B)+""+LEFT$(A$,E-B)
  12. 190 X=X+1:NEXT
  13. 200 PRINT"[147]";:POKE53281,2
  14. 800 POKE53270,192
  15. 900 FORJ=1TO8
  16. 1000 FORI=0TO23:PRINTC$(I);:NEXT
  17. 1150 NEXT
  18. 2000 POKE53270,200:POKE53265,27
  19. 2005 POKE54276,64:POKE54276+7,64
  20. 2010 PRINT"[147]":POKE53281,6:POKE53280,6
  21. 2100 PRINT"      THE OPEN SKY IS FALLING DOWN":PRINT
  22. 2120 PRINT"    THE AIR IS BURNING":PRINT
  23. 2140 PRINT"        I CAN SEE A LIGHT":PRINT
  24. 2160 PRINT"           A LIGHT OF TOMORROW":PRINT
  25. 2180 PRINT"              IT'S DARKENING":PRINT
  26. 2200 PRINT"     A THICK FOG IS SURROUNDING ME":PRINT
  27. 2220 PRINT"   I CAN'T SEE THE SKY":PRINT
  28. 2240 PRINT"     SUDDENLY I FEEL ILL":PRINT
  29. 2260 PRINT"       MAYBE I DID SOMETHING WRONG..."
  30. 2280 PRINTSPC(33)"- !AJY"
  31. 2300 PRINT"SAVUN                         KYTKENNAT"
  32. 2340 PRINT"TARKASTAMME                  HALVETTYA!";
  33. 3000 PRINT"LOAD"CHR$(34)"05*"CHR$(34)",8:"
  34. 3010 PRINT"RUN:";
  35. 3020 POKE198,2:POKE631,13:POKE632,13
  36. 3030 END
  37.